package pcmd_fs_dir;

use pcmd_dir_base;
@ISA = ("pcmd_dir_base");

use strict;
use warnings;


#------------------
# Get file paths --
#------------------
sub get_file_paths {
    my $self = shift;
   
    my $path = $self->{path};
    
    $path =~ s/ /\\ /g;
    my @paths = <$path/*>;

    return @paths;
};


1;

